home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +] med res (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  511 b   |  15 lines
  1. 5 ifgthen100
  2. 10 y=0:print"[147] medium resolution demo "
  3. 20 print"[150]see the [153]r[150]egular or [153]c[150]ompiled version?"
  4. 30 print"(the compiled version is better)"
  5. 40 print"please enter [153]<r>[150] or [153]<c>[150]."
  6. 50 y=y+1:getx$:ifx$=""andy<700then50
  7. 60 ifx$<>"r"andx$<>"c"andx$<>""then50
  8. 70 e$="":ifx$="c"orx$=""thene$="c/":print"[153]<compiled>[150] coming up":goto90
  9. 80 print"[153]<regular>[150] coming up"
  10. 90 fora=1to1500:next:print"[147]"
  11. 100 g=g+1:onggoto110,120
  12. 110 load"med res",8,1
  13. 120 print"[147][144]load"chr$(34)e$"med res demo"chr$(34)",8";
  14. 130 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:new
  15.